Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

Lbl 8
ClrText
Locate 1,2,"I"
Locate 1,3,"I"
5Z
0Y
1T
Locate 1,7,"IIIIIIIIIIIIIIIIIIIII"
Locate 1,1,"###VIES: #"
Locate 9,1,Z
Locate 11,1,"REUSSI: ###"
Locate 18,1,Y
1A
2E
Lbl 5
Int 17Ran#+2B
Int 17Ran#+2C
Int 17Ran#+2D
Lbl 1
Locate A,6,"+"
Locate B,E,"OOOO"
Locate C,E,"OOOO"
Locate D,E,"OOOO"
If Getkey=27
Then Locate A,6," "
A+1A
IfEnd
If Getkey=38 And A>1
Then Locate A,6," "
A-1A
IfEnd
Locate B,E," "
Locate C,E," "
Locate D,E," "
E+TE
E>6A=B Or A=B+1 Or A=B+2 Or A=B+3 Or A=C Or A=C+1 Or A=C+2 Or A=C+3 Or A=D Or A=D+1 Or A=D+2 Or A=D+3Goto 2
E>6Goto 3
Getkey=71Goto M
A>21Goto 4
Goto 1
Lbl M
Locate 8,4,"PAUSE"
Do
LpWhile Getkey31
Locate 8,4," "
Goto 1
Lbl 3
Locate B,6," "
Locate C,6," "
Locate D,6," "
2E
A>21Goto 4
Goto 5
Lbl 2
Dsz Z
Locate B,6," "
Locate C,6," "
Locate D,6," "
2E
1A
Locate 9,1,Z
Z=0Goto 9
A>21Goto 4
Goto 5
Lbl 4
Isz Y
Locate 18,1,Y
Locate 7,4, "REUSSI!!!"
Do
LpWhile Getkey31
Locate 7,4," "
Locate B,E," "
Locate C,E," "
Locate D,E," "
1A
2E
Goto 5
Lbl 9
ClrText
"PERDU!!!"
"TENTATIVES REUSSIES:"
Y